home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 123 / Tiger_Disk_123_20xx_Tiger-Crew-Disk_de_Side_B.d64 / mathe master (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  122 lines
  1. 0 poke53272,peek(53272)or2:printchr$(147):print"[147]"
  2. 1 poke53281,0:poke53280,0:for i=1 to 20:print" [154] ";:next:print""
  3. 2 print" [205]athe [205]aster von [193].[204]eitner & [208].[196]iehm  [186][146]"
  4. 3 print
  5. 4 print
  6. 5 print"     1 > [205]ultiplikation "
  7. 6 print
  8. 7 print"     2 > [196]ivision"
  9. 8 print
  10. 9 print"     3 > [193]ddition"
  11. 10 print
  12. 11 print"     4 > [211]ubtraktion"
  13. 12 print
  14. 13 print"     5 > [209]uadratwurzel"
  15. 14 print
  16. 15 print"     6 > [209]uadratwurzelsampler":goto3000
  17. 16 print:print"     8 > [210]eset":print:print
  18. 18 geta$:if a$="" then 18
  19. 19 on val(a$)  goto 29,99,199,299,399,499,600,2000
  20. 20 goto 18
  21. 29 printchr$(147):for i=1 to 20:print"[183][183]";:next:print""
  22. 30 printchr$(5)" [205]ultiplikation                      [204][186] "
  23. 31 print:print
  24. 32 print" [197]rster [215]ert :":print:inputc
  25. 33 print" [218]weiter [215]ert:":print:inputd
  26. 34 print:g=c*d
  27. 35 print" [197]rgebnis[146]",g:for i=1 to 40:print"[158][183][183]";:next
  28. 36 print:gosub1000:goto 29
  29. 99 printchr$(147):for i=1 to 20:print"[154][183][183]";:next
  30. 100 printchr$(5)" [196]ivision                            [204][186] "
  31. 101 print
  32. 102 print
  33. 103 print" [197]rster [215]ert :":print:inputa
  34. 104 print" [218]weiter [215]ert:":print:inputb
  35. 105 print:l=a/b
  36. 106 print" [197]rgebnis[146] "l:for i=1 to 20:print"[183][183]";:next:gosub 1000:goto 99
  37. 199 printchr$(147):for i=1 to 20:print"[158][183][183]";:next:print""
  38. 200 printchr$(5)" [193]ddition                            [204][186] "
  39. 202 print:print
  40. 203 print" [215]ert 1   :":print:inputa
  41. 204 print" [215]ert 2   :":print:inputb
  42. 205 print" [215]ert 3   :":print:inputc
  43. 206 print" [215]ert 4   :":print:inputd
  44. 207 print" [215]ert 5   :":print:inpute
  45. 208 print" [215]ert 6   :":print:inputf
  46. 209 print" [215]ert 7   :":print:inputg
  47. 210 w=a+b+c+d+e+f+g
  48. 211 print:print" [197]rbebnis:"w:for i=1 to 40 :print"[154][183][158][183]";:next:print""
  49. 212 print:gosub1000:goto199
  50. 299 printchr$(147):for i=1 to 20:print"[158][183][183]";:next:print""
  51. 300 printchr$(5)" [211]ubtraktion                         [204][186] "
  52. 301 print:print
  53. 302 print" [199]rundwert :":print:inputa
  54. 303 print" [193]bzug 1   :":print:inputb
  55. 304 print"  ''   2   :":print:inputc
  56. 305 print"  ''   3   :":print:inputd
  57. 306 print"  ''   4   :":print:inpute
  58. 307 print"  ''   5   :":print:inputf
  59. 308 print"  ''   6   :":print:inputg
  60. 309 z=b+c+d+e+f+g
  61. 310 x=a
  62. 311 s=x-z
  63. 312 print" [197]rgebnis :"s:for i=1 to 40:print"[183][144][183]";:next:print""
  64. 313 print:gosub1000:goto299
  65. 399 printchr$(147):for i=1 to 20:print"[183][154][183]";:next:print""
  66. 400 printchr$(5)" [209]uadratwurzel                       [204][186] "
  67. 401 print:print
  68. 402 print" [215]ert      :":print:inputy
  69. 403 rem
  70. 404 print" [197]rgebniss :"sqr(y):for i=1 to 40:print"[158][183][183]";:next:print""
  71. 405 print:gosub1000:goto399
  72. 499 print"[147]":for i=1 to 20:print"[183][156][183]";:next:print""
  73. 500 printchr$(5)" [209]uadratwurzel-[211]ampler               [204][186] "
  74. 501 print
  75. 502 print" [193]nfang  :":print:inpute
  76. 503 print" [197]nde    :":print:inputr
  77. 504 print" [193]bstand :":print:inputt
  78. 505 forx=etorstept
  79. 506 print"    "x,sqr(x)
  80. 507 next
  81. 508 print:gosub1000:goto500
  82. 599 print"[147]":for i=1 to 20:print"[183][156][183]";:next:print""
  83. 600 printchr$(5):print" [200]inweise                            [204][186] "
  84. 601 print
  85. 602 print" [205]ultiplikation+[196]ivision+[209]uadratw.:"
  86. 603 for i=1 to 40:print"[183]";:next
  87. 604 print" [206]ach jeder [197]ingabe <[210][197][212][213][210][206]>[146] druecken !"
  88. 605 print
  89. 606 print" [193]ddition+[211]ubtraktion:"
  90. 607 print" [163][163][163][163][163][163][163][163] [163][163][163][163][163][163][163][163][163][163][163]"
  91. 608 print" [206]ach jeder [197]ingabe <[210][197][212][213][210][206]>[146] druecken !"
  92. 609 print" bei nicht benoetigten [211]ummanden oder"
  93. 610 print" [211]ubtrahenten auch <[210][197][212][213][210][206]>[146] druecken !"
  94. 611 for i=1 to 40:print"[183]";:next
  95. 612 print" [209]uadratwurzel-[211]ampler:"
  96. 613 print" [163][163][163][163][163][163][163][163][163][163][163][163][163] [163][163][163][163][163][163][163][163]"
  97. 614 print" [198]uer <[193]nfang>[146] den [193]nfangswert der zu"
  98. 615 print" berechnenden [218]ahlenreihe eingeben !"
  99. 616 print" fuer <[197]nde>[146] den [197]ndwert der zu be-"
  100. 617 print" rechnenden [218]ahlenreihe eingeben !"
  101. 618 print" fuer <[193]bstand>[146] den [194]erechnungsabstand"
  102. 619 print" der [218]ahlenreihe eingeben[160]!"
  103. 620 for i=1 to 40:print"[156]*";:next
  104. 630 for i=1 to 10:next
  105. 640 printspc(30)" <[212][193][211][212][197]>"
  106. 641 get a$:if a$="" then 641
  107. 642 print"[147]":goto 1
  108. 1000 print:print"[206]och mal ?  [j/n]";:input p$
  109. 1002 ifq$="n" orq$="nein" then 1005
  110. 1004 ifq$="j" orq$="ja" then 1006
  111. 1005 print"[147]":goto1
  112. 1006 print:return
  113. 2000 print"[147]":for i=1 to 20:print"[154][183][183]";:next
  114. 2001 printchr$(5)"           [194]ye, [194]ye ,[194]ye ! ..."
  115. 2002 print" [194]is zum naechsten [205]al !"
  116. 2003 print" von [193]ndreas [204]eitner";
  117. 2004 print"                        und"
  118. 2005 print" [208]eter [196]iehm"
  119. 2006 for i=1 to 3000:next:sys 64738
  120. 3000 print
  121. 3001 print   "     7 > [194]enutzungshinweise":goto16
  122.